home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 38 / Digital_Talk_38_1999-08-15_Digital_Talk_de_Side_B.d64 / viewer roulette (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  122 lines
  1. 1   f$="bd-950915"
  2. 100 :
  3. 105 rem ***    autor: franz fohler
  4. 110 rem ***     date: 16.03.1999
  5. 120 rem ***  hotline: 09663719
  6. 125 :
  7. 130 dim  c$(600)
  8. 135 dim cu$( 38)
  9. 140 dim cp$(600)
  10. 145 dim  cz(600)
  11. 150 :
  12. 155 print"[147]"; : poke 53280,6
  13. 160 print"[221]cup[221]sw. [221]pair [221]passe[221]dutzend[221]colone [221]"
  14. 165 print"[221]nr.[221] rot[221] imp.[221]manq.[221] 1 2 3 [221] 1 2 3 [221]"
  15. 170 print"[171][192][192][192][219][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][179]"
  16. 175 for a = 0 to 38 : read  cu$( a) : next
  17. 180 for a = 4 to 24 : print cu$(38) : next
  18. 185 gosub 950
  19. 190 :
  20. 200 i = 0
  21. 205 k = 0
  22. 210 open 1,8,8,f$+",s,r"
  23. 215 :
  24. 250 i = i +1
  25. 260 input#1,c$
  26. 270 :
  27. 300 if c$  = "-" then 350
  28. 310 cz(i)  = val(c$)
  29. 320 cp$(i) = right$("00"+mid$(str$(i-k),2),3)
  30. 330 goto 400
  31. 340 :
  32. 350 cz(i)  = 37
  33. 360 cp$(i) = "   "
  34. 370 k = k + 1
  35. 380 :
  36. 400 if st = 0 then 250
  37. 410 zm = i
  38. 420 close 1
  39. 430 i = 1
  40. 500 :
  41. 510 print ""
  42. 520 for z = -10 to 10
  43. 530 if z <> 0 then print chr$(146);
  44. 540 if i + z > zm then print cu$(38) : goto 590
  45. 550 if i + z < 1  then print cu$(38) : goto 590
  46. 560 if i = 1 and z = 0 then gosub 950
  47. 570 if z =  0 then print chr$( 18);
  48. 580 print "[221]";cp$(i+z);cu$(cz(i+z))
  49. 590 next z
  50. 600 :
  51. 610 a$ = ""
  52. 620 get a$ : if a$ = "" then 620
  53. 630 :
  54. 640 if a$ = "[137]" then i = 1
  55. 650 if a$ = "[133]" then i = i -10
  56. 660 if a$ = "[134]" then i = i - 1
  57. 670 if a$ = "[135]" then i = i + 1
  58. 680 if a$ = "[136]" then i = i +10
  59. 690 if a$ = "[140]" then i = zm
  60. 700 if i  < 1   then i = 1
  61. 710 if i  > zm  then i = zm
  62. 720 goto 510
  63. 730 end
  64. 740 :
  65. 900 data "[221] 00 [221] - - [221] - - [221] - - - [221] - - - [221]"
  66. 901 data "[221]   1[221] - * [221] * - [221] * - - [221] * - - [221]"
  67. 902 data "[221] 2  [221] * - [221] * - [221] * - - [221] - * - [221]"
  68. 903 data "[221]   3[221] - * [221] * - [221] * - - [221] - - * [221]"
  69. 904 data "[221] 4  [221] * - [221] * - [221] * - - [221] * - - [221]"
  70. 905 data "[221]   5[221] - * [221] * - [221] * - - [221] - * - [221]"
  71. 906 data "[221] 6  [221] * - [221] * - [221] * - - [221] - - * [221]"
  72. 907 data "[221]   7[221] - * [221] * - [221] * - - [221] * - - [221]"
  73. 908 data "[221] 8  [221] * - [221] * - [221] * - - [221] - * - [221]"
  74. 909 data "[221]   9[221] - * [221] * - [221] * - - [221] - - * [221]"
  75. 910 data "[221]10  [221] * - [221] * - [221] * - - [221] * - - [221]"
  76. 911 data "[221]11  [221] - * [221] * - [221] * - - [221] - * - [221]"
  77. 912 data "[221]  12[221] * - [221] * - [221] * - - [221] - - * [221]"
  78. 913 data "[221]13  [221] - * [221] * - [221] - * - [221] * - - [221]"
  79. 914 data "[221]  14[221] * - [221] * - [221] - * - [221] - * - [221]"
  80. 915 data "[221]15  [221] - * [221] * - [221] - * - [221] - - * [221]"
  81. 916 data "[221]  16[221] * - [221] * - [221] - * - [221] * - - [221]"
  82. 917 data "[221]17  [221] - * [221] * - [221] - * - [221] - * - [221]"
  83. 918 data "[221]  18[221] * - [221] * - [221] - * - [221] - - * [221]"
  84. 919 data "[221]  19[221] - * [221] - * [221] - * - [221] * - - [221]"
  85. 920 data "[221]20  [221] * - [221] - * [221] - * - [221] - * - [221]"
  86. 921 data "[221]  21[221] - * [221] - * [221] - * - [221] - - * [221]"
  87. 922 data "[221]22  [221] * - [221] - * [221] - * - [221] * - - [221]"
  88. 923 data "[221]  23[221] - * [221] - * [221] - * - [221] - * - [221]"
  89. 924 data "[221]24  [221] * - [221] - * [221] - * - [221] - - * [221]"
  90. 925 data "[221]  25[221] - * [221] - * [221] - - * [221] * - - [221]"
  91. 926 data "[221]26  [221] * - [221] - * [221] - - * [221] - * - [221]"
  92. 927 data "[221]  27[221] - * [221] - * [221] - - * [221] - - * [221]"
  93. 928 data "[221]28  [221] * - [221] - * [221] - - * [221] * - - [221]"
  94. 929 data "[221]29  [221] - * [221] - * [221] - - * [221] - * - [221]"
  95. 930 data "[221]  30[221] * - [221] - * [221] - - * [221] - - * [221]"
  96. 931 data "[221]31  [221] - * [221] - * [221] - - * [221] * - - [221]"
  97. 932 data "[221]  32[221] * - [221] - * [221] - - * [221] - * - [221]"
  98. 933 data "[221]33  [221] - * [221] - * [221] - - * [221] - - * [221]"
  99. 934 data "[221]  34[221] * - [221] - * [221] - - * [221] * - - [221]"
  100. 935 data "[221]35  [221] - * [221] - * [221] - - * [221] - * - [221]"
  101. 936 data "[221]  36[221] * - [221] - * [221] - - * [221] - - * [221]"
  102. 937 data "[221]----[221]     [221]     [221]       [221]       [221]"
  103. 938 data "[221]   [221]    [221]     [221]     [221]       [221]       [221]"
  104. 950 print""
  105. 951 print tab(2);"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][174]"
  106. 952 print tab(2);"[221]                    [221]f1:  <<    [221]"
  107. 953 print tab(2);"[221] fragen?            [221]  f2:  eins[221]"
  108. 954 print tab(2);"[221]   wuensche?        [221]f3:  <     [221]"
  109. 955 print tab(2);"[221]     anregungen?    [221]           [221]"
  110. 956 print tab(2);"[221]       kritik?      [221]f5:   >    [221]"
  111. 957 print tab(2);"[221] hotline / support: [221]           [221]"
  112. 958 print tab(2);"[221]   tel. 09663719    [221]f7:  >>    [221]"
  113. 959 print tab(2);"[221]              franz [221]  f8:  last[221]"
  114. 960 print tab(2);"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]"
  115. 965 return
  116. 970 :
  117. 996 : "der file-name muss manuel in"
  118. 997 : " der ersten zeile eingegeben"
  119. 998 : " we7
  120. 20256 pen1,8,15,"s:tree.bas":close1:save"tree.bas",8
  121. 1 [143] by ske
  122.